home *** CD-ROM | disk | FTP | other *** search
/ Game On / Game_On_91-05_1991_-_de_Side_A.d64 / ninja remix (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  36 lines
  1. 100 clr:dimts$(20):dimbl$(20):dimf(20)
  2. 110 ts$(1)="05 19":bl$(1)="166":f(1)=1
  3. 120 ts$(2)="23 17":bl$(2)="107":f(2)=1
  4. 130 ts$(3)="12 14":bl$(3)="221":f(3)=2
  5. 140 ts$(4)="21 05":bl$(4)="197":f(4)=2
  6. 150 ts$(5)="33 03":bl$(5)="222":f(5)=2
  7. 160 ts$(6)="12 06":bl$(6)="131":f(6)=3
  8. 170 ts$(7)="22 05":bl$(7)="026":f(7)=3
  9. 180 ts$(8)="05 05":bl$(8)="084"
  10. 190 ts$(9)="23 05":bl$(9)="025"
  11. 200 ts$(10)="12 07":bl$(10)="139"
  12. 210 ts$(11)="21 13":bl$(11)="115"
  13. 220 ts$(12)="33 11":bl$(12)="140"
  14. 230 ts$(14)="22 05":bl$(14)="198"
  15. 240 ts$(13)="12 14":bl$(13)="049"
  16. 250 fori=1to7
  17. 260 iff<>f(i)thengosub430
  18. 270 open2,8,15:open1,8,2,"#"
  19. 280 iff<>f(i)thengosub390
  20. 290 print#2,"u1 2 0 "+ts$(i)
  21. 300 print#2,"b-p 2 "+bl$(i)
  22. 310 print#1,chr$(173);
  23. 320 print#2,"u2 2 0 "+ts$(i)
  24. 330 ifi=7then380
  25. 340 print#2,"u1 2 0 "+ts$(i+7)
  26. 350 print#2,"b-p 2 "+bl$(i+7)
  27. 360 print#1,chr$(169)chr$(1)chr$(141)chr$(175)chr$(2)chr$(234);
  28. 370 print#2,"u2 2 0 "+ts$(i+7)
  29. 380 f=f(i):close2:close1:next:end
  30. 390 print#2,"u1 2 0 18 0":print#2,"b-p 2 2"
  31. 400 print#2,"m-w"chr$(1)chr$(1)chr$(1)chr$(65):print#1,"a";
  32. 410 print#2,"u2 2 0 18 0"
  33. 420 return
  34. 430 print"insert disk - side"f(i)chr$(13)"press any key !"
  35. 440 poke198,0:wait198,1:poke198,0:return
  36.